home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / RUN COUNTER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  774b  |  7 lines
  1. 10  GOTO 11: RUN NUMBER = 0000: REM IF^NECESSARY,^RESET^NUMBER^(MUST^BE^4^DIGITS).^DO^NOT^ADD^ANY^LINE^NUMBERED^SMALLER^THAN^10.
  2. 11 P$ = "PROGRAM NAME": REM TYPE^ACTUAL^PROGRAM^NAME^IN^QUOTES.
  3. 12 L =  PEEK(103) + PEEK(104) *256 +16:N =  PEEK(L +3) +10 * PEEK(L +2) +100 * PEEK(L +1) +1000 * PEEK(L) +1:N = N -53328: IF N >9999  THEN N = 0
  4. 13  POKE L +3,48 +N - INT(N/10) *10: POKE L +2,48 + INT((N - INT(N/100) *100)/10): POKE L +1,48 + INT((N - INT(N/1000) *1000)/100): POKE L,48 + INT(N/1000)
  5. 14  HOME : VTAB 22: PRINT P$: FOR I = 1 TO  LEN(P$): PRINT "-";: NEXT : PRINT : PRINT "RUN NUMBER:";N: PRINT : PRINT "(STAND BY...)"
  6. 15  PRINT  CHR$(4);"UNLOCK ";P$: PRINT  CHR$(4);"SAVE ";P$: PRINT  CHR$(4);"LOCK ";P$
  7. 16  REM <CTRL-M><CTRL-M>APPEND<CTRL-J>PROGRAM<CTRL-J>HERE...